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E showSnetwork (IDENT = ‘v04-000') = 


cose mo 
Ss 


i eeeeeeeeerernerererereneeeeerereereerereerenereeeeeeeeneeeneeeeeeneeeeeetete 
ie 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
i ALL RIGHTS RESERVED. 


:@ ae i “Ere I$ ry eee UNDER A LICENSE AND MAY BE USED AND gd LA 
+e ACCORDANCE WITH THE yERn> pF SUCH LICENSE AND WITH THE 
: T NOTICE, THIS SOFTWARE OR ANY OTHER 
:@ COPIES penton EOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
. 
+ 
. 
+ 
+ 
. 
> 
. 
* 

'e TRANSFERRED. * 
. 
. 
. 
. 
* 
“ 
+ 
. 
. 
. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ie phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

e SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

te CORPORATION. 

!@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

te SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

IPSS irri iii iii iii iii iiiiiiiiiiiiiiiiiiiiiiiiiiiiy) 


tee 


i FACILITY: SHOW Command 
! ABSTRACT: 

This module processes the SHOW NETWORK command 
i ENVIRONMENT : 


WAT POPOPOPOTONONOTUN oo 


VAX/VMS operating system. unprivileged user mode, 
i AUTHOR: Tim Halvorsen, August 1981 
i Modified by: 


' 

' 

1 

' 

! 

' 

' 

1 

! 

' 

! 

1 

: vO3-010 TMHOO10 Tim Halvorsen 27-Jun-1983 
Make endnode display look better. 
' 
' 
1 
1 
! 
! 
' 
1 
' 
‘ 
' 
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v03-009 TMHOOO9 Tim Halvorsen 17-May-1983 
Fix bug in reyt tee which obtains the Rent node name 
in the area displ af It was accidentally sending 
a@ binary count to the terminal. 


v03-008 TMHO008 Tim Halvorsen 13-Mar-1983 
Do not display loop nodes, and add new area display. 


v03-007 GASO105 Gerry Smith 20-Jan-1983 
Fix output display. 


v03-006 GAS0100 Gerry Smith 11-Jan-1983 
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} Remove reference to SHOWSL_STATUS, since all 

; errors are s coma 

i v03-005 GAS0099 " Smith 7=Jan-1983 

: Minor modifications o fit new SHOW image. 

i v006  MKP0001 Kath Y Perko 14-Dec-1982 

} Add capability to get multiple nodes in one Q10 to NETACP. 
i v003 TMHOO003 Tim Halvorsen 28-Nov-1982 
Add eon tite of area node addresses. 

i vo00o2 90¢ Tim Halvorsen 24-Jun-1982 

: ety failure to initialize an NFB field. 

i v001 TMHO001 Tim Halvorsen 03-Jun-1982 
Modify to use new NETACP control Q10 winter face. 
' 


; Include files 


! VAX/VMS common definitions 
! NETACP control Q10 definitions 
' Common BLISS definitions 


LIBRARY "SYSSLIBRARY: STARLET’; 
LIBRARY ‘SHRLIBS:NET’; 
REQUIRE "SYSSLIBRARY:UTILDEF'; 
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ex ep= 198s 99:09:93 | Heat Sk Ssnonet rose; Page 33 
Table of contents 


FORWARD ROUTINE 


show$network: NOVALUE, ! Process SHOW NETWORK 

display_nodes: NOVALUE, ! Produce reachable node display 
format_area_info, ! Write area info to the displey 
ormat e_info, ! Write node info to the display 
get_node_name, ; eet node name given node address 
write Line: NOVALUE, ! Write Line to output 

format _nodeadr; ! Format a node address 


' 
! OWN storage 


channel: WORD; Channel to ACP 


' 
Status codes 


EXTERNAL LITERAL 
show$_nonet; 


Network not available 


! 
External routine 


EXTERNAL ROUTINE 
showSwrite_Line: NOVALUE ; 


General SHOW FAO output routine 


& 
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GLOBAL ROUTINE show$network : NOVALUE = 


' 
} This routine processes the SHOW NETWORK command 


i Inputs: 

i None 
i Outputs: 

i None 


1/0 status block 

i Number of entries displayed 

! Number of entries returned in buffer 
Return buffer 

gu-ty- of above buffer 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 3 -—=o-= 
1 
BEGIN 
LITERAL 
buffer_size = 512; ! Size of return buffer. 
LOCAL 
nfb: BBLOCK [rnfb$c_length+20*4], ! Network function block 
total_count, 
buf fer oo, 


i (room for 20 field requests) 
nfb_desc: VECTOR Fg. 
iosB: 
buffer: Ba pus fer. size], 


! Descriptor of NFB 
BBLOCK 
buffer_desc: BLOCK 
Pointer to return buffer 


keys: ~ ’ pe ag 7 4+B+nfb$c_ctx _size J, ! Buffer for search keys & context 
key.desc: VECTOR (2) 
node_name ere: SAVE TOR (32,BYTE), 


exec type. 
ec_addr, 
exec_name sbutter: A ee (32,BYTE), 


exec “name: 
status; 


' Descriptor of above buffer 
Node name buffer 

' Descriptor of above buffer 

' Executor node type 

' Executor address 

' Executor name buffer 

! Executor node name descriptor 


' 
: Assign a channel to the network ACP 


AAAI AIAN AIA AAA 


status = SASSIGN(CHAN=channel, 


Assign channel to NETACP 
DEVNAM=ZASCID ‘_NET:"); 


If NOT .status If error detected, 
THEN 


L ss$_nosuchdev ! If network not yet up, 
how$_fonet) ' then tell user 
»Status); 


Else, report the status 
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Get our executor node name, address and type 

key_desc = 4 + nfbSc_ctx_size; ' Longword overhead, NO search values 

key- desc £93 = keys; ! and fixed content area : 

keys (0,0,32, 3 ' Jero count of fields in P4 (unused) 

keys ie ‘ ig: §3 = = 8: ! Start key = at beginning 

buf fer_desc = buffer_size; ! Setup descriptor of P4 buffer 

puffercgese E43 = butter? at ° 


CHSFILL(O,nfb$c_Length,nfb); 


nftb fntbsb. fet] = nfb$c_fc_show; 
nfo (nfb$b_database) = AtbSe db_ini; 


nfb_desc 
nfb_desc 


CHSMOVE (3#4, wr 


Fol = = -+ “+t oninntpnane fldid) + 


nib *tatbst te fidid)); 
status = ronmtal --°™ = Be wlan 


P2 = key desc, 
P4 = butter desc); ! 


If NOT .status 
NOT (status = 
THEN 


-iosb (0,0,16,0)) 


EQL ss$_devnotmount : 
L (show$_fionet) 
L(.status); 


state ae 01; 


cat kelts 


exec_addr = .buffer 
ones =type fo Pe bu 


ones “neee = eres 
srgecnane {13 _name 
7 Display title Lines 


write_Line(ZASCID ‘VAX/VMS Network status 
format _nodeadr(.exec_addr) 
exec. _name, 


Pre-zero NFB fields 


Request ‘‘show’’ function 
of executor database 


3*4; ! Construct descriptor of NFB 
Request the Lao lt fields: 
Executor addres 


Executor type 
Executor name 


Issue control function 


' Address of NDB descriptor 
! Address of key buffer descriptor 


Address of return buffer descriptor 
If error detected, 


If ACP not yet started, 
then indicate network not up 
Else, report the status 


' Save our node address 
' Save our node type 
! Construct descriptor of executor name 


fo}: ome otters. -exec_name [1]); 


for local node ‘AS !AS on !%D°, 


Se Ge Be Se Se Se Se Ge Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se Se Se Ge Ft Se Se Se Se Se Se Se Se Fe Se Se Se Ge Ge Fe Ge Ge Se Se Ge Se Se Se Ge Se Se Ge Se Se Ge oe 
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write Line(ZASCID °"); 


ibeseo-1964 99:89:09 


i If we are a level 2 (area) router, then display cost/hops information 


' for all areas in the network. 


' 
i If we are a Level 
; ‘nearest Level 

= buffer_size; 


buf fer_desc £93 = buffer; 


key_desc 9} = 4+ 4 + nfbSc_ctx_size; 
key_desc [1] = keys; 
keys 


i SRE Eb 


CHSFILL(O,nfb$c_Length,nfb); 


nfb$b_fct] = nfb$c_fc_show; 
nfb$b_database) = AfbSc_db_ari; 
nfb$b_flags) =_nfb$m_mult; 
nfb$Si_srch_key) = nfb$c_ari_rea; 
nfb$b_oper] = nfb$c_op_éal; 


nfb_desc 
nfb_desc 


router . 


buf fer_desc 


keys 


= nfb; 


nfb$c_ari-dlis 
nfb fatbst fididd); 


total_count = 0; 
WHILE true 
DO 


BEGIN 
status = SQIOW(FUNC = IOS_ACPCONTROL, 


= .channel, 
10SB8 = iosb, 
Pl = nfb_desc, 
P2 = Rey desc, 
P4 = buffer_desc); 


If NOT .status 
4 OR NOT (status = 


THEN 
EXITLOOP; 


IF .exec_type NEQ adj$c_pty_area 


£0} = SBYTEOFFSET(nfb$l_fidid) + 


! 
-iosb (0,0,16,0)) 


1 router, then the area database will display the 


Construct descriptor of return buffer 


' Longword overhead, ONE search value 
! and fixed context area 


Zero count of fields in P4 (unused) 
REA search value EQL TRUE 
Start key = at beginning 


Pre-zero NFB fields 


Request ‘‘show’’ function 

of area database 

Request multiple entries per 010 
Only return reachable eress 

by checking if field EQL P2 value 


5*4; 


! Construct descriptor of NFB 


Request the following fields: 
Area number 

Destination cost 

Destination hops 

Next node to destination 
Destination circuit name 


Initialize area count 


' Issue control function 


Address of NDB descriptor 
Address of ney buffer descriptor 
Address of return buffer descriptor 


If error detected, 


! then stop looping 
! If we are not an area router, 


AX-11 Bliss-32 v4 
CLIUTL.SRCJSHONET 


$3534 — (38 


TWORK Fi 2 99: 3: 93 AX-11 Oh hey rt V4.0-74 Page 


v04 14-Sep-1 CLIUTL SRC} HONET 832; (3) 
5 THEN 
BEGIN 
BIND 
next_hop_addr = buffer (3*4,0,32,0); 
node_name 1} ! Make descriptor of output buffer 
q node_ spans 2 ai. name butter; 
node Get node gene of next hop 
4 “Set n a. “nane(. next_hop_addr, node_name); 
4 SELECTONEU .exec_type OF 
4 adits Pty. _ph4n,adj$c_pty_ph3n]: 
7 


-: te_line(ZASCID ‘This is a nonrouting node, and does not have any network information.'); 
: gnext. _hop_addr NEQ -1 


write _Line(ZASCID ‘The designated router for !AS is node !AS !AS.', 


Mwy COOwOuw 


exec_name 
format snodeadr<. next_hop_addr), 
node_name) 
END; 
COTHERWISE): 
BEGIN 


IF .next_hop_addr NEQ -1 
THEN 


write_Line(ZASCID ‘The next hop to the nearest area router is node 'AS !AS.', 
format _nodeadr(.next_hop_addr), 


3 tt a 


MEUM 0 OONOUEFWN “OOO VWRU Fw 0 


ooo 
wn—o0 


node_name) ; 
94 END; 
95 TES; 
38 total_count = 1; ! Force some spacing afterwards 
38 EXITLOOP; ! Do not display area database 
If .total_count EQL 0 ! If first time through, 
1 THEN ! Print header Line 
§ write_lLine(ZASCID °!/!13* Area Cost Hops Next Hop to Area!/'); 
buffer_ptr = buffer; Point to first node in buffer. 
05 buffer_count = -keys (0,0,32,0); j Set suseet of nodes returned in the 
uffer. 


mare -buffer_count GTR 0 


EGIN 
buffer_ptr = format_area_info (.buffer_ptr); 
total stount = ,totaT_count + 1; Increment # areas reachable 
pare count = .buffér_count - 


As long as we aren't an endnode, display reachable nodes 


Be Se Se Se Se Se Se Se Se Se Ge Fe Se Se Se Se Se Se Se Se Ge Fe Se Ge Ge Se Ge Se Ge Ge Se Se Se Se Ge Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Ge Ge Se Ge Se Ge Ge Ge 
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PUPP PUPP SISA SI ATI 
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IF .exec_type NEQ ad h4n ' If we aren't an endnode, 
AND ta. type N ate s5jke pty. ph3n 


ee SOT IS ET at Te 


ieseer9ge QU:9R:98 YASUE Shenk at ga089 


: 


v04 

; HE 

: ; ot tal t GTR O ! If displayed at least 1 area 

: Hegtetet.coe olay ! 

; write _Line(ZASCID '"); ! put 1 blank Line here 

; 5 Siprhev poteats ! Display reachable nodes in our area 
5 Cleanup channel to ACP 

§ 5 SDASSGN(CHAN = .channel); ! Deassign the ACP channel 

; : : RETURN; ! Return to CLI dispatcher 

; 5 END; 


«TITLE SHOWSNE TWORK 
«IDENT \v04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


00 00 00 3A 54 45 4€ 60008 P.AAB: .ASCII wersNS :\<0><0><0> 
10E00 0008 P.AAA: .LONG ize 
0000000° Bape ADDRESS hae 
01 00st yongota 10100 0010 P.AAC: .LONG 168 2768, 16842778, 16908353 
of 72 6F 77 764 65 GE 20 $p 6 2F 3 3 OO1C P.AAE: .ASCII \VAX/VMS Network status for local node !A\ 
65 6F 6C 20 72 6F 66 20 7 4 61 74 7 ones 
41 $} 0 6 $e of 6— 20 ‘ OO3A 
44 25 21 0 6E 6F 0 3 (4) 1 0044 ASCII 3 545 gn 'ZD\ 
4 598 B20 P.AAD: .LONG 1769477 
0000000° 00054 ADDRESS 
O88 P.AAG: .BLKB 0 
34434! 0058 P.AAF: .LONG 17694720 
00 4 * 0005C¢ ADDRESS P.AA 
14020041 14010013 14010012 14010011 140100 


5 . G 
te: P.AAH: LONG 333609872, 335609873. 335609874, - 


6F 72 6E€ 6F 6E 20 61 20 73 69 20 73 69 68 00074 P.AAJ: .ASCII \This is a nonrouting node, and does not \ 
So 3 ; 
eer oe eR ee eH ee oo tite 
es gf 44 is $3 oF 29 29 $f e 2 $2 %6 i a ASCII \have any network information. \<0><0> 
a0058 eC P.AAL: “tong! 17694789 
65 74 61 67 69 7 5 64 20 C4 P.AAL: .ASCII \The designated router for !AS is node !A\ 
SRURSAER REO HE ko ie 
— 53 4 EC -ASCII 5. 5AS \<0><0> 
ab ° fe —r sn eRe te 
as P.AAN: .ASCII \The ~~ hop to the nearest area router \ 


a i | eee SSS SFULSSSSAS 
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SERRE EEE 
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000000006 
0000v 
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000000006 
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“Sep-19 239: AX-11 Bliss-32 V4.0-74 b 
~3007}387 99:39:93 CLIUTL.SRCJSHONET.832; oes 
sASCII \is node !AS !AS.\ : 
P.AAM: .LONG 17694776 : 
LADDRESS P.AA ; 
P.AAP: .ASCII \!/!13* Area Cost Hops Next Hop to \ ; 
ASCII \areas/\<0><0> : 
P.AAQ: .LONG 17694766 3 
.ADDRESS P.AAP ; 
P.AAR: .BLKB : 
“AAQ: .LONG 17694720 : 
.ADDRESS P.AAR ; 
.PSECT SOWNS,NOEXE,2 
CHANNEL:.BLKB 2 
EXTRN SHOWS_NONET, SHOWSWRITE_LINE 
eEXTRN SYSSASSIGN, SYSSQ10W 
SEXTRN SYSSDASSGN 
-PSECT S$CODES,NOWRT,2 
ENTRY SHOWSNETWORK, Save R2,R3,R4,R5,R6,R7,RB.R9,=; 
MOVAB SyYS$Q10W, R11 ; 
MOVAB WRITE_LINE, R10 : 
MOVAB P : 
MOVAB -796(SP), SP : 
CLRQ = = (SP) ; 
PUSHAB CHANNEL ; 
PUSHL R9 ; 
CALLS #4, SYSSASSIGN : 
VL RO, STATUS : 
BLBS STATUS, 2$ : 
CMPL STATUS. #2312 : 
18: BNEQ 3 
PUSHL #SHOWS_NONET : 
BRB 5$ ; 
2s: MOVZBL #68, KEY_DESC ; 
OV KEYS, KEY_DESC+4 ; 
CLRL — KEY : 
CLRW KE YS+4 F 
MOVZWL #512, BUFFER _DESC ; 
MOV BUFFER BUFFER DESC+4 : 
movcS #0, (SP), #0, #16, NFB : 
MOVB #34, NFB ; 
MOVB #1, NFB#2 : 
MOVL #28, NFB_DESC ; 
mOVAB NFB. NFB DESC +4 : 
MOVCS #12. P.AAC, NFB+16 : 
CLRO = = (SP) ; 
PUSHAB BUFFER_DESC : 
CLRL = = (SP) : 
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CLIUTL.SRCJSHONET 832; 
KEY_DESC 
NFB DESC 
=(SP) 
1936 
6 


#2, SYS$Q10W 
RO 


STATU 
#1, LIBSSIGNAL 


BUFFER, EXEC_ADDR 
BUFFER+8, EXEC_NAME 
EXEC_NAME_BUFFER, EXEC_NAME+4 


EXEC_NAME 

EXEC” ADDR 

#1, FORMAT_NODEADR 

P. AAD 

#4, WRITE_LINE 

#i, WRITE_LINE 

#512, BUFFER DESC 
BUFFER BUFFER_DESC+4 
#72, KEY 

KEYS, KEV_DESC+4 

KEYS 

#1, KEYS+4 

KEYS¢ 

#0, (SP), #0, #16, NFB 


rat, Moe? 
£ sSeuthee, NFB+4 
NEB+ 


B_DESC 
NFB, NFBDESC+4 

a P.AAH, NFB*16 
TOTAL_COUNT 


EXE CTNAME BUFFER+10, SEXEC_NAME+4 
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¢ FB 00154 CALLS #12, SYS$QI0W 
§ DO 00157 MOVL RO STATUS 
6 5 154 BLBC = STATUS, 11$ 
3 90 AD § 150 MOVZWL 10S8, STATUS 
26 E9 00161 BLBC STATUS, 11 
0 p 164 CMPL XEC_TYPE, #3 
oF 167 BEQL 
38 AE 0 p 169 MOVL #32, NODE_NAME 
C AE AE 9E 001 MOVAB NODE_NAME-BUFFER, NODE_NAME+4 
AE 9F 0017 PUSHAB NODE~NAM 
52 00BC DO 0017" VL NEXT-HOP_ADDR, R2 
DD O017A PUSHL R 
0090v CF FB 17¢ CALLS #2, GET_NODE_NAME 
2 AE ) 181 MOVL R ODE_NAME 
01 D1 00185 CMPL XEC_TYPE, #1 
Q 13 001 BEQL 3 
05 : D1 4 A CMPL EXEC TYPE, rh 
28 12 001 BNE $ 
0084 C9 OF OO18F 8S: PUSHAB  P.AAI 
6A 01 Fe 0193 CALLS #1, WRITE_LINE 
FEFFFFFF © BF 32 D1 00196 (MPL -R2, #1 
4 13 00190 BEQL Ss 
28 aE 9F 0019F PUSHAB NODE_NAME 
52 DD OO1A2 PUSHL 
0000v CF Or FB OO1A4 CALLS #1, FORMAT_NODEADR 
0 DD 001A9 PUSHL 
08 Ag 9F OO1AB PUSHAB £XEC_NAME 
OOEC C9 OF O1AE PUSHAB P. 
6A 04 FB 0018 CALLS #4, WRITE_LINE 
1¢ 11 00185 BRB 10$ 
FFFFFFFF © 8F 3¢ D1 00187 9$: CMPL R2, #1 
13 13 O1BE BEQL «108 
28 AE 9F 001C PUSHAB NODE_NAME 
52 DD O01C3 PUSHL R 
0000v CF 01 FB OOIC CALLS #1, FORMAT_NODEADR 
50 DD OOICA PUSHL RO 
o12c 469 «OF OOICC PUSHAB P.AAM 
6A 03 FB 9100 CALLS #3, WRITE_LINE 
53 01 pO 001D3 108:  MOVL #1. TOTAL COUNT 
29 11 0106 11$: BRB 16 
3 D3 0108 12$:  ‘TSTL TOTAL_COUNT 
07 12 O01DA BNEG =: 13$ 
0164 C9 OF 001DC PUSHAB P.AAO 
6A 01 FB OIE CALLS #1, WRITE_LINE 
5 OOAC CE i 1£3 13$:  MOVAB BUFFER, BOFFER PTR 
54 58 AE dO OO1E MOVL KEYS, uF FER_ COUNT 
03 14 OO1EC 148 BGTR 15$ 
FF47 31 OlEE BRW $ 
55 DD OO1F1 15$: PUSHL BUFFER PTR 
0000v cf 1 FB Oi CALLS #1, FORMAT_AREA_INFO 
5 : DO OO1F MOVL RO. BUFFERTPTR 
Dg O1F INCL TOfAL_COUNT 
4 p 1FD DECL UF FER_COUNT 
E 1 OO1FF BRB 
05 D1 01 16$:  CMPL XEC_TYPE, #5 
1 13 0 BEQL 
01 58 Di 00206 CMPL = EXEC_TYPE, #1 


Pee Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Fe Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se Be Be Se Be Se Se Se Se Se Se Se Ge Be Se Se Se Ge Se Se Se Se Se Se Se Se 


_—— 9 . 
sig on E-SgIMs S09 eEDH dete it di 


1 

19 13 00209 BEQL : 
53 05 00208 TSTL TOTAL. COUNT 3 0524. 
07 15 00200 BLEQ : 
016C C9 OF O020F PUSHAB P.AAQ 3 0526 
Hi FB 00213 CALLS #1, WRITE_LINE ; 
o000v CF FB 00216 178 CALLS: #0, DISPLAY_NODES r 0538 
re 0000" cf 3C 00218 18$ MOVZ2WL CHANNEL, <(SP) + 0535) 
1 FB : CALLS #1, SYS$DASSGN ; | 
04 RE : 0539 


; Routine Size: 552 bytes, Routine Base: SCODES + 0000 


snovsye TvoRE 1$-se0-1984 00:39:09 
ROUTINE display_nodes: NOVALUE = 


AX-11 Oh lege as V4.0-74 


Pa 13 
CLIUTL.SRCJSHONET.832; (4) 


This routine displays all reachable nodes in our area. 


' 
45 H 
: Inputs: 
‘3 ; None 
4 ; 
? } Outputs: 
‘ ; None 
? : 
5 BEGIN 
3 LITERAL 
33 buffer_size = 512; ! Size of return buffer. 
LOCAL 
nfb: BBLOCK Cnfb$c_length+20*4], 


' Network function block 

i (room for 20 field requests) 
Descriptor of NFB 

1/0 status block 
Number of nodes displayed 

Number of nodes returned in buffer 
Return buffer 


agers ect 


total_node “woo 
buffer node ~fount 
fer “BBLO kK Cbuffer_ size], 


buffer ‘desc: VECTOR (2), ' bescriptor of above buffer 
buffer_ptr, ! Pointer to return buffer 

keys: BBLOCK (4+8+nfb$c_ctx sizely ! Buffer for search keys & context 
sey ,eeete VECTOR (2), ! Descriptor of above buffer 

status; 


' 
; Display the cost/hops information for all nodes in this area 


buf fer_desc £0} = buffer_size; Construct descriptor of return buffer 


buf fer_desc = buffer? 


atm 


VEAP AS SSNSAS AN“ SSSGS ARO 


LWT al ahah ah ah Ab Ab ab Ab Ab Ab Ab dh bb db dh db bh db dh hh bh Ab ah ah eh dh dh ah ah dh dh dh ah ah Al 


SSSSSLESSSSSSESS 
COSSOOOSDSOOSOSOSOOOOOOOOOSOSOOOOOOOOOOO0O 


SSRESLESES 


hororororns 
uno 
ww 


nfb ntbsp. _datab 


nfb b_ flags 
nftb nibs _src 
nfb [nfb$b_oper 
nfb 


= nfb$c_o 
nfb$l-srche_key] = Af 


ej = atbSe r?e- ndi; 
= nfb$m 


key] = sete ni. rea; 
#b8c ndi_loo; 


key_desc £9} = + 8 + nfb$c_ctx_size; ! Longword overhead, TWO search values 
19 key_desc = aM. ! and fixed context area 
% keys (0,0,32,0) = 0; ! Zero count of fields in P4 (unused) 
1 keys 3° -0J = true; ' REA search value EQL TRUE 
14 keys * — ' LOO search value NEQ true 
+ keys #59 6 é, ! Start key = at beginning 
" CHSFILL(O,nfb$c_length,nfb); ' Pre-zern NFB fields 
19 nfb [nfb$b_fct] = nfb$c_fc_show; Request “’show’’ function 


of node database 

Request muitiple entries per Q10 
Only return reachable node 
by checking if field EQL P. 
Do not return ‘loop nodes" 


value 


: 


b-se-1 984 99: 3: 93 AX=11 Bliss-32 V4.0-74 


1 
14-Sep-1 CLIUTL.SRCJSHONET.832; 
nfb (nfbSb_oper2] = nfb$c_op_neq; ! by checking if field NEQ P2 value 


nfb_desc ie = + peat inarilantentte fidid) + 84; ! Construct descriptor of NFB 
nfb_desc 


se 


Ft at ot ot at at at at ot a a a 
wn 


wuvvU 


: 
3 


5 
8 


PAA IPIPINI NHB B&B FE FAWN & 


total_node_count = 0; 
WHILE true 
dO 


If . 
THEN 


CHSMOVE (8*4, UPLIT LONG( ! Request the following fields: 
nfb$c_ndi_tad, ! Translated node address 
nfb$c_ndi_acl, : Betive t Links 
nfb$c_ndi_dco, ! Destination cost 
nfb$c_ndi_dho, ! Destination hops 
nfb$c_ndi_nnd, ! Next hop node address 
nye c_ndi_nna, ! Node name 

b$c =ndi =H : Next hop node n 
afb ! Destination circuit name 


nfb fartst’t \ 


Initialize node count 


BEGIN 
status = SQIOW(FUNC = IOS_ACPCONTROL, 
CHAN = .channel, 


! Issue control function 


v 
— 
" 
om 
c— 
aa 
u 
- 


Address of NDB descriptor 
Address of key buffer descripto 
Address of return buffer descriptor 


vw 
™m 

" 
t 


P4 = pelvee abesta 


If NOT .status 
mene” NOT (status = .iosb [0,0.16,03) 


EXITLOOP; ! then stop looping 
If ,total_node_count EQ. 0 If first time through, 
THEN ! Print header Line 
write_Line(ZASCID '!/!8* Node!9* Links Cost Hops Next Hop to Node!/'); 


buffer_ptr = buffer; Point to first node in buffer 
buf fer_node_count =" keys (0,0,32, 0; : Get mater of nodes peturasé’ in the 


uffer. 
eats -buffer_node_count GTR 0 
BEGIN 


buffer_ptr = Sornet _node_info ( -buffer ptr); 
total_fiode_coun ' Incrément # nodes reachable 


If error detected, 


te al_node_count + 1; 
parce? node_ count = teoatter: _node_count - 1; 


END; 
status EQL ss$_endoffile 


BEGIN 
u -total_node_count GIR 1 If more than local node found, 
H Write the tot tal 


write_Line(ZASCID °!/!16* Total han TUL node!%S.", 


! If normal termination, 


TWORK 16-50 “19 9: AX-11 Bliss-32 v4.0-74 
v04 bee oet rt Ht a ee og ies PP 
; & -total_node_count); 

3 6 END 

3; 4 ELSE 

; 485 BEGIN 

3 6 i Status EQL yo devnotmount ! If ACP not yet started, 

; 6 N 4} wid ber fonet) ' then indicate network not up 
: : fi3t SIGNAL(. status); ' Else, report the status 

; 4 ? 

; 49 END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


02020063 ezoronz2 020108 ozOT0017 AsRH0Hts SESISRLS GRIZE PeAAS: tone $ueooss. HHELODHE. HRUQ@EL: HEGLIOT™ = 
4 £3 is 3 $ $3 % of 25 $8 A 1 2F H i P.AAU: ASCII e!9* Links Cost Hops Next \ 
20 A 3 § 4E 20 20 6 3 if 1BA 
00 00 2F 21 65 64 6F 4E 20 6F 74 6F 4 it «ASCII \Hop to Node!/\<0><0><0> 
01060085 104 P.AAT: .LONG id Sy +: 773 
0000000° 3108 ADDRESS P.AAU 
66 6F $0 34 $1 * of + 2 en ; i} ¢} 3 31s P.AAW: .ASCII V7 be Total of !UL node!%S.\ 
9 £08 C O1Fa P.AAV: .LONG 17694748 
0000000" OO1FC -ADDRESS P.AAW 


-PSECT SCODES,NOWRT,2 


003C 00000 DISPLAY_NODES: 
WORD Save fe Ht a, . RS 


F038 MOVAB 
0 AE 0200 F %3C 0000 MOVZ7WL #51 ieee ESC 
4 AE AE 9E 0000D MOVAB BUFF FFER’ UEFER DE BESCes 
7E 4c BF OSA O02 MOVZBL ney S 
046 AE 08 AE 9E 0001 MOVAB KEYS, KEY. DESC #4 
0 AF D4 9018 CLRL si 
OC AE 0 09 3 MOVL = #1, SKEYS#4 
10 AE 1 MOVL =so#t, KF YS#8 
16 AE B4 CLRW ok 2 
10 00 6E 00 2c MOVCS #0, (SP), #0, #16, NFB 
AO AD 9 
A2 AD 2 MOVB rel Be2 
AO AD 922 F 8B MOVW sitet ay 
AG = AD 0200 F p A MOVL ne 4435, NFB+4 
ASAD O94 ae CLRB 
A8 AD 0200000 F p 4 MOVL 554434, NFB+8 
AC AD ; 40 MOVE 
98 AD : 1 MOVL i ab 
9C AD AO OA 5 MOV Neg. NFB Dest +4 
BO AD 0000" CF 2 A MOVC 3 PAKS. NFB+16 
4 00061 CLAL TOfh NODE“ COUNT 
E 7C 00063 18 CLRO 2 =(S 


SOOoOoooooooo 


So 
w 
= 
o 


~ 
@ 


Oo COOOCOCOCOO 


PIAAAPMAAMNAMNIA JIVIVIVIVIVIVIVIV 


SSSESESS SEESEEEZ 


NR 


wwe 


9 


$ 
SUNS 


2 
s 


MOMD MINOO OODLE OO RWO AHS 


pat 


oun 
ou 
>> 
mm 


0000Vv gf 


00000870 = 8F 


9-000 70-90 07 0-OMUNND aes e~sesze 
= o 


-o 
men 


0000" 
0000v CF 


0000007C 8F 
000000006 


OmMo@wown OOVIUM—VIM 
—MNNMFONM MWMRWOEW—TmM fwWwo-ul>P 


~~” Sate 
wo -oNM—$ FW "9 


000000006 00 


ono-0°0—-09 
rx 


OOED 8$: 


; Routine Size: 238 bytes, Routine Base: S$CODES + 0228 


Igo$eoc}9R 09:59:99 


CLIUTL.SRC 


BUF FER_DESC 
=(SP) 
KE ¢ 


, 4$ 
TOTAL _NODE_COUNT 
2s 
AA 
#i, WRITE_LINE 
BUFFER, BOFFER_PTR 
KEYS, BUFFER_NODE_COUNT 


BUFFER_PTR 
“i, FORMAT NODE _ INFO 


TOTAL_NODE~ COUNT 
FFER_NODE_COUNT 


TATUS, #2160 
TOTAL_NODE_COUNT, #1 
TOTAL NODE_COUNT 

#2, WRITE_LINE 
STATUS, #124 
#SHOWS_NONE T 


STATUS 
#1, LIBSSIGNAL 


Weigh lesa 


_ 


“bh “$E07198 99 


ROUTINE format_area_info (info_ptr: REF VECTOR) = 


' 
| 
| 
! 
! 
| 
' 


] 


59:93 AX=11 Blisg-32 V4 
: CLIUTL.SRCJSHONET 


2 


This routine a fktpt® f @ pointer to one area's information in the buffer 
returned by NE It formats cats. information and writes it to the 
output stream. 


Inputs: 


info ar = Address of the Goptenion of the area's information in 
he buffer returned by NETACP. 


Fl pl ele el el eld 
LESRS 


wn 


“ 


Outputs: 


Routine value = Address of next byte beyond area's information. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
LOCAL 
ptr: + tren PSs. ’ gv. 4 into argo“ information. 
circ_name: : Desc tor of circuit name 


ee ed ed cel et 


MEUM $0 OBO VE WN OO@VOuUfWwN—O 


next_hop_ nae wbuf fers re VECTOR (32, BYTE] But fer to hold next hop name 
next_hop_name: VECT g Bh. 4 of next hop node name 
next_hop_name 9 32; 
next_hop_name = 2 nent _hop_name_buf fer; 


next_hop_name 1 Get node name of next hop 
Get_hode yhants state _ptr (3), next_hop_name); 


! Make descriptor of output buffer 


BRAN 


ptr = info_ptr (4); ! Point to word-counted circuit name 


circ” _name 
ptr = .ptr + 2. + oer C 


Output the Line 


circ_name £9} = y+ rf CO 0,16,0); ! Construct descriptor of circuit name 
* 80 0,16,0); ! Skip by string in buffer 


SSSsses Saas 


wu 


° ' Area number 
lJ, post oo a aren 


inte, ual hop 
aire name (0) EQL 0 then “HASEID ‘trpeat)” *ELSE circ name), ! Circuit name 
eit nodeadr({.info_ptr (3 ), 1 Next hop node address 
: Next hop node name 


write _line(ZASCID ef ‘SUL $4UL oS 4UL '10AS=> !6AS !AS', 


next _hop_ name); 
RETURN .ptr; ! Return updated pointer 
END; 


SN SS 


(a a et a 


Arunw=ooe 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


9 
=$ep-19be $2:09:82 — EELTUTLoSneSsnonet 032: 
A 


+ P.AAY: .ASCIIT \!13* !3UL  !4UL) !4UL !10AS=> !6AS\ 


THB RMUSER ARES 


, «ADDRESS P 
00 29 6C 61 63 6F is 


i 21 
; 35 
25 
1 ASCII \_!A 
£00 P.AAX: =LONG 17698 764 
ac P.ABA: “ASCH \ige 912 \<0> 
86 0° ib ee ODRESS P.ABA 
.PSECT $CODE$,NOWRT,2 
000C 00000 FORMAT_AREA INFO: 


«WORD Save Re .RS 
SE 36 C2 0000 UBL ‘ 4, SP 
0 bd 000 PUSHL 
06 AE 08 AE 9E 0000 OV NEXT_HOP_NAME_BUFFER, NEXT_HOP_NAME +4 
5E Dd 0000C PUSHL SP 
53 04 aC DO 0000 MOVL INFO_PTR, R3 
OC A3 DD 0001 PUSHL  12(R3 
0000v CF 9 FB 0001 CALLS #2, GET NODE _NAME 
6 DO OOO1A MOVL RO, NEX xT I NAME 
5 10 A3 9E 0001D MOV 16(R3), 
5 $2 3¢ 900 1 MOVZWL (PTR) ‘10 
38 AE 5 0 0024 MOVL RO CIRC IN 
C AE 02 Ag E 99 8 MOVAB g(R2) CY Re CNAME 4 
52 02 A042 9E 00020 MOVAB 2(RO)CPTRI, 
5 DD 00032 PUSHL SP 
0c A3 DD 000 PUSHL  12(R3) 
0000v CF gi FB 00037 CALLS #1, FORMAT_NODEADR 
0 DD 0003c PUSHL RO 
30 AE DS 0003 TSTL CIRC_NAME 
07 12 90041 BNEQ is 
50 0000" CF 9E 00043 MOVAB P.AAZ, RO 
04 11 00048 BRB 2$ 
50 30 AE 9E O004A 1$ MOVAB CIRC _NAME, RO 
5 pp OO4E 2$ PUSHL R 
7E 04 A3 7D 0005 MOVO 4(R3), =(SP) 
63 DD 00054 PUSHL (R 3 
0000" CF 9F 00056 PUSHAB P.A 
0000v CF 07 FB 005A CALLS a? MURITE_LINE 
; BR Aika BRE Paks 


3; Routine Size: 99 bytes, Routine Base: S$CODES + 0316 


Be Se Se Se Se Be Se Be Se 


—————_———_ + --—_________—_—_— 


snovsye work 1E-se0-1986 00:39:09 yanett al iage32 4.027 


: re 4, } ROUTINE format _node_info (info_ptr: REF VECTOR) = 

; 48 718 1 !<< 

; 546 71 2% 

3 : 7 1! This routine pecepts ® a@ pointer to one node's information in the buffer 
3 7 1! returned by NETACP. It formats this information and writes it to the 
; § 4 ! } output stream. 

; : f 4 Inputs: 

: $ 7 $ 1 / info_ptr = Address of the re as Pd of the node's information in 

; 58 f ! the buffer returned 

: 559 7 § 1 | Outputs: 

; 560 730 1! 

3 e) f 1 : : Routine value = Address of next byte beyond node's information. 

; $f Fag 1 

; 5646 734 BEGIN 

; 565 735 

; 566 7 LOCAL 

3s 367 7 ptr: REF BBLOCK, ! Pointer into node information. 

3 208 738 node_name: VECTOR : i Descriptor of node name 

; 69 739 circ_name: VECTOR i Descriptor of circuit name 

; 570 740 next_hop_name: VECTOR r (2) ; peece toser of next hop node name 

3 tA 741 next_hop_ptr: REF VECTOR 2), o formatted next hep descriptor 
3 Le; Bree next_hop_addr_buffer: Vv ¥ECTOR (32,BvtéI. ' Butter to hold next hop address 
3 er? SOF next_hop_addr: VECTOR (2); ' Descriptor of next hop node address 
; 27? tog ptr = info_ptr (5); ! Point to word-counted node name 

; 37§ O79 node_name ae yoo CO 0,16,0]; ! Construct descriptor of node name 

; 78 0748 2 node—name ty 

; T44 1534 ptr = .otr + 2 + oote (0,0,16,0); ! Skip by string in buffer 

: 581 0751 next_hop_name f92 = tet os 0,16,0); ! Construct descriptor of next hop 

3 one 8788 next_hop_name 

; 283 0793 ptr = .ptr + 2 + .ptr Pro. 0. ‘i. 9); ' Skip by string in buffer 

: abs b7ee circ_name £9} = ote CO 0, 16,0); ! Construct descriptor of circuit name 
; 586 0738 circ_name 

; Hh ore ptr = .ptr + 2. + * i *0,16,0); ! Skip by string in buffer 

: 36 759 next_hop_ptr = format gnodener<. sinton ger | [4]) ! Format next hop address 

; 590 760 next_hop_addr j = .Mext_hop_ptr ; Save descriptor of formatted string 
; 591 761 next-hop_addr [1] = next_fop_addr_buf tier: 

: 3 %6 CHSMOVE (Znext_hop_ptr (OJ, .fext_Rop_ptr [1], .next_hop_addr (1)); 

: 59% 764 2! 

3 95 765 ' Output the Line 

3 238 766 ' 

; 59 76 

; 598 76 write_Line(ZASCID ‘!4# !15<!6AS !AS!> 4 GUL '4UL = '4UL '10AS-> !6AS !AS', 
3 2RR 4 > tea Ton nodeadr(.info_ptr (0)) be ! Node address 

; no 

; 601 771 (IF “into. We {1} GEQ 0 THEN ‘infor ptr rt] ELSE 0), ! Active Links 
; 602 772 info _ptr -f ' Destination cost 


2 
WB-Sep-1984 09:38:09 yaxtt BLie5-52,v4.0-74 


3 48 einto.ptr (3), ! Destination hops 
a (IF .circ name (0) EQL 0 then ZASCID ‘(Local)* ELSE circ_name), ! Circuit name 
5 775 next_hop_addr ! Next hop node address 
4 78 next _hop_names; ! Next hop node name 
° re RETURN .ptr; ! Return updated pointer 
610 780 1 END; 
<PSECT SPLITS,NOWRT,NOEXE,2 
21 341 3% 21 3¢ 35 31 «21 A 34 21 00264 P.ABC: .ASCIT \!4* !15<!6AS !AS!> '6UL !4UL !4U 
ge 88 3 3} 3 3 ee 33 i 3 20 : os 00283 +. 
21 20 53 41 36 21 5 $f D 4 41 30 31 i 6 $¢ sASCII \!10AS=> !6AS !AS\ 
10600 3 0 43 P.ABB: .LONG 17694776 
0000000" 0028 -ADDRESS P.ABC 
00 29 6C 61 63 6F 4C 0284 P.ABE: ASCII \(Local)\<0> 
10600 O28C P.ABD: .LONG 17694727 
0000000" 00290 .ADDRESS P.ABE 
-PSECT SCODE$,NOWRT,2 
OOFC 00000 FORMAT_NODE_INFO: 
.WORD Save R2,R3,R4,R5,R6,R7 
5E CO AE 9 00002 MOVAB -64(SP), SP 
5 046 AC D 90006 VL INFO PTR, R7 
56 14 A? YE OOO0A OVAB 20(R7), PTR 
50 6 3¢ 9000¢ MOVZWL (PTR), RO 
38 AE 0 0 0001 VL —- RO, NODE_NAME 
3c AE 02 A6 9E 00015 MOVAB g(R6) NODE _NAME+4 
56 02 A046 3 OO1A v (RO) EPTRI, “PT 
50 66 C OO001F MOVZWL (PTR), RO 
38 AE 0 00 000 2 VL —-RO, NEXT_HOP_NAME 
C AE 02 Ab 9E 99 MOVAB g(R6) NEXT_ROP_NAME+4 
56 A046 9 0 VAB 2(RO)CPTRI,~PTR 
50 66 C 000 MOVZWL (PTR), RO 
30 AE 0 dO 000 VLRO, CIRC_NAME 
4 A 0 A : 99 MOVAB (RG) CIRC_NAME+4 
5 A04 C v (RO) (PTR), “PTR 
A? DD 904 PUSHL  16(R7) 
0000v CF 01 FB 9 44 CALLS #1, FORMAT_NODEADR 
60 p 049 MOVL.  (NEXT_HOP_PTR), NEXT_HOP_ADDR 
046 =A 08 A . 004¢ MOV NEXT_ROP_ADDR BUFFER? NERT HOP_ADDR+4 
04 BE 4 8B 60 28 00051 MOVC3 (NEXT_HOP_PTRY, @4(NEXT_HOP_PTR), - 
@NEXT"HOP~ADDR+4 
8 AE 9F 00057 PUSHAB NEXT_RAOP_A 
4 AE 9F 0005A PUSHAB NEXT"HOP~ADDR 
8 A 05 TSTL CAR “NAME 
0 6 BNEG = 1 
50 0000' ct 9 06 MOVAB P.ABD, RO 
4 11 0006 BRB $ 


roe 


Sete Se Se Se Se Fe Se Se Se 


16-Sep-19 9: AX-11 Bliss-32 V4.0-74 Pa 1 
14 f-sep-1984 99: 39 93 CLIUTL.SRCJSHONET.B32; ” (Bs 
50 38 AE OSE 9 1$: MOVAB CIRC_NAME, RO : 
5 0 60 23: PUSHL : 
7E 8 A F MOV 8 (R7), =(SP) : o772 
6 a? : 3 TSTL (R7) + 0771 
0 i: BLSS $ : 
06 A pp 7 PUSHL 4(R7) : | 
ge 78 BRB 4$ : 
4 0007D 3$ CLRL 0s = ( SP) : | 
50 aE F OOO7F 4$ PUSHAB NODE _NAME + 0768 
DD PUSHL ) ; 0769, 
0000v CF 1 FB CALLS #1, FORMAT_NODEADR : 
0 DD 00089 PUSHL RO : | 
0000" CF 9F PUSHAB P.ABB ; 0768 | 
0000v cf 9 FB F CALLS #9 WRITE LINE : 
0 a MOVL PTR, R : 0778 
4 00097 RET : 07 


; Routine Size: 152 bytes, Routine Base: SCODES + 0379 


| 9 
$ TWORK 1b-se “1 2:39:09 AX-11 Bliss-32 V4.0-74 Pa 2 
rived ty 1 ~$00n 138% 99:59:43 Let TuTL: SRC ISHONET B32; a Aid 
; 6 r 1 } ROUTINE get_node_name (addr, buffer_desc: REF VECTOR) = 
; 8} ? : 1 !-=- 
: 615 784 1 
; oi¢ 785 1! This routine returns the node name associated with a given node 
: ei f : } address. 
1 BBY bem 
; 621 7 1! addr = Node address 
; : § ia } } buffer_desc = Address of descriptor of output buffer 
3 626 798 1 | Outputs: 
; 625 79% 1! 
; ? $ 795 } Routine Value = Length of returned string 
; 6 8 797 1 
: 6 798 2 BEGIN 
; 631 0800 2 LOCAL 
3 oss 0801 nfb: BBLOCK E(nfb$c_length+1*4], ! Network function block 
BBB §Hebateses On Hey goaceagin aime 
; 635 804 keys BBLOCK Tohentosc_ctx_size). ! Buffer for search keys & context 
3 636 805 key desc VECTOR (2) ! Descriptor of above buffer 
3 $37 iy Ter: BBLOCK (165, ! P4 buffer (for node name) 
3 638 +434 pe desc: VECTOR (2), ! Descriptor of above buffer 
3 status; 
; 640 0809 
; 641 0810 key_desc £0} = 4+ 4 + nfb$c_ctx_size; ! Longword overhead, ONE search value 
$ ong pat} key_desc (1) = keys; ! and fixed context area 
3 664 0813 keys 0-8-3808 = 0; ! Zero count of fields in P4 (unused) 
: 645 0814 keys $°3°7 8 = ,addr; ! Insert desired node address 
3 ong Bat? keys (8,0,16,0) = 0; ! Start key = at beginning 
; 3 HH pen sesc £0) = Lan ! Setup descriptor of P4 buffer 
3 esc = buffer; 
; 650 O81 - 
3 $2) 4 CHSFILL(O,nfb$c_Length,nfb); ! Pre-zero NFB fields 
; £38 o8 : nfb (nfb$b_fct) = nfb$c_fc_show: ' Request ‘show’ function 
; 654 8 nfb (nfb$b_database) = Afb$c_db_ndi; ! of node database 
3; 655 ; 4 nfb (nfb$l-srch_key] = nfb$c_ndi_tad; ' Search for, patching address 
3 $28 : 5 nfb [nfb$b_oper] = nfb$c_op_éaql; ! using “EQL** comparision 
; O28 ; ; atd.dese fo} = SOYTEOFF SET (afe6l_fidid) + 1#4; ! Construct descriptor of NFB 
3 n esc = nfb; 
; 660 829 ig 
3 $6) $$ : CHSMOVE (1*4, ust Lone ; Roqesst the following fields: 
; n _ndi_nna ode name 
3 663 8 § nfb fatbst fidid}); 
; 665 P 0834 @ status = SOIOU(FUNC = IOS,ACPCONTROL, ! Issue control function 
3 = ,channel, 
; $69 P 10SB = iosb, 
; 668 P Pl = nfb_desc, ! Address of NDB descriptor 


m9 
vou-008 1eo$ep=i98e $2:d9:82 — LeCTUEL SSR Sshonet-B3e; 


3 P P2 = key_desc, ! Address of key buffer descriptor 
: of : pe s po desc): ! Address of return buffer descriptor 
; 67 If NOT .status ‘if : 
; ers oan NOT (status = ,iosb (0,0,16,0)) -gcterte dl cntrentcems 
fg ase 0 ! Return null string 
: 67 CHSMOVE(. buffer [0,0,16,0], buffer (2,0,0,0], .buffer_desc (1)); 
; ors 8 SA a buffer £6°6°48°9? : ' Return Length of string 
: 681 50 : 
3; 682 51 END; 
-PSECT $PLIT$,NOWRT,NOEXE,2 
02020043 00294 P.ABF: .LONG 33685571 
<PSECT S$CODE$,NOWRT,2 
003C 00000 GET_NODE_NAME : 
«WORD Save R2,R3,R4,R5 
SE soFF78 «CE. «9E 0000 WOVAB «--136(SP5., §P 
16 AE 48 8F 9A 0000 MOVZBL #72, KEY DESC 
18 «AE 1¢ AE 9E 0000C MOVAB KEYS, KEY_DESC+4 
1€ AE D4 00011 CLRL —CvKEYS 
20 AE 04 ac 00 90014 MOVL ADDR, KEYS+4 
24 AE B4 00019 CLRW 3s KEYS+8 
04 AE 08 h bE SOOTE ROVA SE FER P4 DESC +4 
10 00 bE 00 2¢ 00025 moves 70, (SP), #0, #16, NFB 
78 OA 0002 
78 AE ; 90 0002A MOVB #34, NFB 
7A AE 90 000 E MOVB #2, NFB+2 
7C AE 02010010 8F 00 000 MOVL #33619984, NFB+4 
7B AE 94 OOO3A CLRB sNFB 
70 AE 14 p0 03D MOVL #20, NFB_DESC 
74 AE 78 «AE : 041 MOVAB NFB, NFB-DESC+4 
FC AD 0000" CF 2 046 MOVL P.ABF, NFB+16 
a8 AE SE SEB Bites 
7E p4 Sost L = =( SP) 
28 «AE OOF 99 3 PUSHAB KEY_DESC 
E4 AD OF 6 PUSHAB NFB~DESC 
7E 7C 6 CLRQ Ss =(S 
oc AD OF 38 PUSHAB 1088 
38 0D 000 PUSHL #56 
7E 0000° F 3¢ 0 6 MOV ZL CHANNEL, =(SP) 
000000006 00 o¢ FB 6 6 CALLS #12, SYS$QI10W 
7 : 0 6 BLBC ~—._- STATUS, 1$ 
0 68 AE 3C 000 MOVZWL 10SB, STATUS 


oO 
~ 
@ 
_ 


oO 
co 


Oo ooococeoeo 
co cece cococoCO#D 
Oe ee er er Ser er erg 


COONVFWNM CONES W oO 


WIWPononononongd 


ooooooo 
0200000000 0000 


8 BLBS STATUS. 2s 
3 e ea 18: pee RO 
AC 00 00078 2$: MOVL BUFFER_DESC, RO 
046 B80 OA AE 08 AE ¢ 0007F MOVC3 BUFFER, BUFFER+2, @4(RO) 
50 08 AE 3 Oo ORe | BUFFER, RO 


; Routine Size: 139 bytes, Routine Base: SCODE$S + 0411 


ates ean avs tt BL 88252, ¥4- 0524 


; Routine Size: 


—OODBNAOWUS UT 


PAAAPAASAAAAS 
BSSLESRANLSS a 
DOOOOCOOCOOOCOOCOOOSOOCSoOoOO 
103 CD: 
uw 


PLDI tt st kt tk tt tt tt 


14 bytes, 


“Sep-1 9: AX-11 Bliss-32 V4.0-74 
era: 09:38:09 YARsD.SbdeHs33,d4 85849 
ROUTINE write line (message, args): NOVALUE = 
ere 
; This routine accepts a control spring and a series of FAO 
arguments, and writes the resulting line to the output stream. 
Inputs: - 
i message = Message ¢ control string 
args = First FAO argument tony number of arguments may follow) 
Outputs 
None 
BEGIN 
showSwrite_line(.message, args); ! Use standard SHOW output routine 
END; 
0000 00000 WRITE_LINE: 
«WORD Save nothing 
08 AC 9F 0000 PUSHAB ARGS 
04 AC DD 0000 PUSHL aes 
0000G CF 02 FB 00008 CALLS #2, SHOWSWRITE_LINE 
04 00000 ET 


Routine Base: S$CODES + 049C 


Page 


i 


10 
1$-ep-1964 00:59:09 yanctt BLin8-52 vé.0-74 Page 6 


a 
zh 
3 | 
mes 


ROUTINE format_nodeadr(address) = 


! 
This routine formats a 16-bit node address into an 
formatted ASCII string of the form <area>.<node>. 
f the area number is zero, then the area portion 
S omitted. 
Inputs: 
address = 16-bit node address 
Outputs: 


Routine = Address of descriptor of string describing address 


PMIPMIPIPOND 2 2 2 OO OS Ss 
od 
OOOCOOCOCOOCOOCOO 
(2 CD Co Co CD CD CO CD CD CD CD 
> a 
VFN —OOONOUE 


MVFUN —O OONOUES WN "OOONOuUsS 


Since the gerry & descriptor is stored in OWN storage, it must 
be copied ranod)gtety after returning (with a standard routine 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
; such as ‘‘append’’). 


BEGIN 


string: VECTOR £39 -BvTEI. Formatted node address string 


QQ 


rit tttttttt tt 
S3sss 
rx 
PRR POPOPONI ROPOROPOPNUPUNONONUNNUIND 2 = 


desc: VECTOR ! FAC result string descriptor 
desc Fo} = 40; ! Setup descriptor for FAO 
desc (1) = string; 
8 0905 If .address <10,6,0> EQL 0 ' If area = 0, 
uy pane M 
40 P 090 SFAO(ZASCID * ‘UL’, ' Format only node 
41 P 0908 desc, desc, 
4 909 address) 
74 10 SE 
744 P 0911 SFAO(ZASCID *!2UL.!UL", ' Format area and node 
745 P O91 esc, 
74 P 091 waddress <10,6,0> 
74 0914 address <0,10;0>5; 
748 0915 
749 3918 RETURN desc; 
ree 33 
751 918 END; 


-PSECT SPLITS,NOWRT.NOEXE ,2 


00 00 4c 55 21 20 20 20 0 38 P.ABH: .ASCII \ UL \<0><0> : 
01 £00 6, 0 A0 P.ABG: LONG 176947 6 : 

4C 55 21 2€ 4C 55 32 ? O2A8 P.ABJ: .ASCII \32u SULA : 
01 £00 8 0280 P.ABL: .LONG 1769472 : 

0000000° 00284 “ADDRESS P.ABJ : 


pateneneiing 


"0% ve ‘ Pa | a Bost 99:33:98 a Bliss-32 v4.0-74 


14-Sep-1 


-PSECT 


Bco0% -BLKB 
STRING: .BLKB 
C DESC: .BLKB 


oEXTRN 
»PSECT 


000¢ 00000 FORMAT_NODEADR: 
WORD 


0000000 00 9€ 0000 MOVAB 
3 b000" St 9E 000 MOVAB 
6 $ 3 00 MOVL 
06 =A +4 a 001 MOV 
FCF 0 +3 93 00016 BITS 
10 12 00018 NEQ 
04 AC DD 00010 PUSHL 
: DD 000 3 PUSHL 
D 000 PUSHL 
0000" 4 F 00024 PUSHAB 
63 4 FB 00028 CALLS 
7E AC OA 09 tf 00 D 1$ EXTZV 
7€ 08 AC 06 EF 000 8 EXTZV 
DD 00039 PUSHL 
D 00038 PUSHL 
0000" CF 9F 00030 PUSHAB 
$3 83 FB 00041 CALLS 
0 62 YE 00044 28: MOVAB 
04 00047 RET 


; Routine Size: 72 bytes, Routine Base: S$CODE$S + O4AA 


CLIUTL.SRCJSHONET .B32; 
SOWNS ,NOEXE ,2 
fo 
8 
SYSSFAO 
SCODES,NOWRT ,2 


R3 
R 


ADDRESS 
R 


P.ABG 

ai, SYSSFAO 

#0, #10, ADDRESS, -(SP) 
’ *’ #6, ADDRESS#+1, -(SP) 


R 
ee 
E 


1 
SYSSFAO 
Desc, RO 


Pane 8) 


“SHENG Twon re “SSc198E 99:38:08 PARTI, OL fe9=82,y4. 05242 
: TE BBB EBay 


~EXTRN LIBSSIGNAL 


3 PSECT SUMMARY 
; Name Bytes Attributes 
$  SOWNS 52 NO NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS ++ NOVEC,NOWRT, RD ,NOEXE.NOSHR, LCi, REL. CON.NOPIC.ALIGN(e) 
; SCODES NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
; woceeee= Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28: Svst 18) STARL T.L32;1 9776 15 : 581 00:01.0 
F} “$255$DUA28: HRLIBINET.L52;1 1279 39 63 00:00.9 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LI1S=LIS$:SHONET/OBJ=OBJ$:SHONET MSRC$:SHONET/UPDATE=(ENHS$: SHONET) 
ay 1266 code + 748 data bytes 
Elapsed Time: 


Lines/CPU Min: 7 g.3 
Lexemes/CPU-Min: 21745 

Y Used: 183 pages 
Compilation Complete 
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~ AH-BT13A-SE DIGITAL EQUIPMENT CORPORATION 
VAX/VMS V4.0 CONFIDENTIAL AND PROPRIETARY 
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